home *** CD-ROM | disk | FTP | other *** search
/ Let's Discover Tennessee! / Let's Discover Tennessee!.iso / pc / FILES / GEO.dxr / 00521_countiesScan.ls < prev    next >
Encoding:
Text File  |  2001-06-27  |  794 b   |  22 lines
  1. global countiesDone, numDone, currentField
  2.  
  3. on exitFrame me
  4.   if countiesDone = 1 then
  5.     go(marker("CountiesEnd"))
  6.   else
  7.     currentField = "field" & numDone + 1
  8.     member(currentField).text = member(currentField).text & "C"
  9.     member(currentField).text = member(currentField).text & "O"
  10.     member(currentField).text = member(currentField).text & "U"
  11.     member(currentField).text = member(currentField).text & "N"
  12.     member(currentField).text = member(currentField).text & "T"
  13.     member(currentField).text = member(currentField).text & "I"
  14.     member(currentField).text = member(currentField).text & "E"
  15.     member(currentField).text = member(currentField).text & "S"
  16.     sprite(numDone + 31).visible = 1
  17.     countiesDone = 1
  18.     numDone = numDone + 1
  19.   end if
  20.   unloadMember(708)
  21. end
  22.